This program can be inputted into the TI84+ to have it find cross products. Vectors are inserted into the STAT menu, under L1 for i or x, L2 for j or y, and L3 for k or z.
For example finding the cross product of vectors <1,2,3> and <4,5,6> would be inserted into the calculator as:
| L1 | L2 | L3 |
|---|---|---|
| 1 | 2 | 3 |
| 4 | 5 | 6 |
then you would run the program.
:ClrHome
:Output(1,1,"3D")
:Output(2,1,"I=L1 R=1")
:Output(3,1,"J=L2 F=2")
:Output(4,1,"K=L3")
:((L2(1)*L3(2))-(L3(1)*L2(2))) --> I
:((L3(1)*L1(2))-(L1(1)*L3(2))) --> J
:((L1(1)*L2(2))-(L2(1)*L1(2))) --> K
:Output(6,1,"I:")
:Output(7,1,"J:")
:Output(8,1,"K:")
:Output(6,3,I)
:Output(7,3,J)
:Output(8,3,K)
:Pause
:ClrHome
where --> means sto>